home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Languguage OS 2
/
Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO
/
gnu
/
m4-1_0_3.lha
/
m4-1.0.3
/
examples
/
trace.m4
< prev
next >
Wrap
Text File
|
1991-07-08
|
524b
|
31 lines
divert(-1)
# move(from, to)
define(`move', `Move one disk from `$1' to `$2'.
')
# _hanoi (cnt, from, to, aux)
define(`_hanoi', `ifelse(eval(`$1'<=1), 1, `move($2, $3)',
`_hanoi(decr($1), $2, $4, $3)move($2, $3)_hanoi(decr($1), $4, $3, $2)')')
# hanoi (cnt)
define(`hanoi', `_hanoi(`$1', source, destination, auxilliary)')
divert`'dnl
# Debugmode t
debugmode(`t')
hanoi(2)
# Debugmode taeq
debugmode(`taeq')
hanoi(2)
# Debugmode OFF
debugmode
hanoi(2)
# Debugmode ae
debugmode(`ae')
traceon(`move', `_hanoi')
hanoi(2)